﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

Dim sid_,keep_
sid_ = Request.Form("bbssid")
If sid_ <> "" And ifLetter(sid_)=False Then Call Error("<card title='出错'><p>论坛会话标识无效！")
keep_ = Request.Form("bbsmsgkeep")
If keep_ = "" Or IsNumeric(keep_)=False Or keep_<0 Then Call Error("<card title='出错'><p>消息保存天数无效！")

' if len(Request.Form("numtitle"))<1 then
	' Call Error("<card title='出错'><p>请输入！")
' end if

'----------------------------------------------------------------
'	生成bbs.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/bbs.asp"'生成bbs.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsreg="""&Request.Form("bbsreg")&""" '论坛注册功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsagree="""&forQuote(Request.Form("bbsagree"))&""" '论坛注册协议"
HU_Config=HU_Config+chr(13)&chr(10)&"bbssid="""&Request.Form("bbssid")&""" '论坛会话标识" '这里不用forQuote,因为前面已判断了
HU_Config=HU_Config+chr(13)&chr(10)&"bbsmoney="""&forQuote(Request.Form("bbsmoney"))&""" '论坛金币名称"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsip="""&Request.Form("bbsip")&""" 'IP异常检测"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsessay="""&Request.Form("bbsessay")&""" '投稿功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsmsgkeep="""&Request.Form("bbsmsgkeep")&""" '消息保存天数"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsbirthday="""&forQuote(Request.Form("bbsbirthday"))&""" '会员生日显示"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站论坛配置">
<p align="left">
注册功能:<select name="bbsreg<%=time_r%>" value="<%=bbsreg%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
注册协议:(支持<a href="../ubbcl.asp?sid=<%=sid%>">UBB</a>)<br/>
<input name="bbsagree<%=time_r%>" type="text" value="<%=bbsagree%>"/><br/>
会话标识:<input name="bbssid<%=time_r%>" type="text" value="<%=bbssidstr%>" size="4"/><br/>
<!--金币名称:<input name="bbsmoney<%=time_r%>" type="text" value="<%=bbsmoney%>" size="4"/><br/>-->
IP检测:<select name="bbsip<%=time_r%>" value="<%=bbsip%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
投稿功能:<select name="bbsessay<%=time_r%>" value="<%=bbsessay%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
消息保存:<input name="bbsmsgkeep<%=time_r%>" type="text" value="<%=bbsmsgkeep%>" size="2"/>(天)<br/>
生日显示:<input name="bbsbirthday<%=time_r%>" type="text" value="<%=bbsbirthday%>"/><br/>
<anchor>保存配置
<go href="bbs.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="bbsreg" value="$(bbsreg<%=time_r%>)"/>
<postfield name="bbsagree" value="$(bbsagree<%=time_r%>)"/>
<postfield name="bbssid" value="$(bbssid<%=time_r%>)"/>
<postfield name="bbsmsgkeep" value="$(bbsmsgkeep<%=time_r%>)"/>
<postfield name="bbsip" value="$(bbsip<%=time_r%>)"/>
<postfield name="bbsbirthday" value="$(bbsbirthday<%=time_r%>)"/>
<postfield name="bbsessay" value="$(bbsessay<%=time_r%>)"/>
<postfield name="bbsmoney" value="$(bbsmoney<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示<br/>
1、会员生日显示留空则不显示生日提示,支持UBB<br/>
2、移动手机IP不稳定，最好不要设置IP异常检测<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>